10 DEFINT A-Z: KEY OFF: CLS : WIDTH 40: LOCATE 1, 1, 0
20 FOR ROW = 1 TO 25
30 LOCATE ROW, 1: COLOR 15, 0: PRINT STRING$(5, 219);
40 LOCATE ROW, 6: COLOR 14, 0: PRINT STRING$(5, 219);
50 LOCATE ROW, 11: COLOR 3, 0: PRINT STRING$(5, 219);
60 LOCATE ROW, 16: COLOR 2, 0: PRINT STRING$(5, 219);
70 LOCATE ROW, 21: COLOR 5, 0: PRINT STRING$(5, 219);
80 LOCATE ROW, 26: COLOR 4, 0: PRINT STRING$(5, 219);
90 LOCATE ROW, 31: COLOR 1, 0: PRINT STRING$(5, 219);
100 NEXT ROW
110 WHILE INKEY$ = ""
120 LOCATE 2, 32
130 COLOR 7, 1: PRINT MID$(TIME$, 1, 4);
140 COLOR 7, 0: PRINT MID$(TIME$, 5, 8);
190 WEND
200 WIDTH 80: COLOR 7, 0: LOCATE 1, 1, 1: CLS : END
